home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
utility2
/
wine02bx.zip
/
LISP
/
PACKAGES
/
VT100-LE.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
1KB
|
25 lines
;;; compiled by jwz@thalidomide on Tue Jun 30 23:25:23 1992
;;; from file /cadillac-th/jwz/emacs19/lisp/packages/vt100-led.el
;;; emacs version 19.2.1 Lucid.
;;; bytecomp version 2.07; 17-jun-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(defvar led-state (make-vector 5 nil) "\
The internal state of the LEDs. Choices are nil, t, `flash.
Element 0 is not used.")
(fset 'led-flash #[(l) " ┬Iê├ ç" [led-state l flash led-update] 3 "\
Flash LED l."])
(fset 'led-off #[(&optional l) "½ë ┬!├Iê¬à─ ├\"ê┼ ç" [l led-state prefix-numeric-value nil fillarray led-update] 3 "\
Turn off vt100 led number L. With no argument, turn them all off." "P"])
(fset 'led-on #[(l) " ┬Iê├ ç" [led-state l t led-update] 3 "\
Turn on LED l."])
(fset 'led-update #[nil "└┴┬╞U¼ªHë╔=½ë╩╦!Q¬ï½ç╩╦!Q)Të¬V╠═R╬!+ç" ["?0" "" 1 l o f 5 led-state s flash ";" int-to-string "q" "t" send-string-to-terminal] 5 "\
Update the terminal's LEDs to reflect the internal state."])
(provide 'vt100-led)